﻿Imports System


Public Class Datum
    Public ReadOnly Property A As Double ' 长半轴
    Public ReadOnly Property F As Double ' 扁率
    Public ReadOnly Property B As Double ' 短半轴
    Public ReadOnly Property C As Double ' 线性离心率
    Public ReadOnly Property E1 As Double ' 第一偏心率
    Public ReadOnly Property E2 As Double ' 第二偏心率

    ' 构造函数，初始化时输入椭球长半轴a和椭球扁率f
    ''' <summary>
    ''' 构造函数, 初始化时输入椭球长半轴a和椭球扁率f
    ''' </summary>
    ''' <param name="a">椭球长半轴a</param>
    ''' <param name="f">椭球扁率f</param>
    Public Sub New(a As Double, f As Double)
        Me.A = a
        Me.F = f
        Me.B = a * (1 - f)
        Me.C = Math.Sqrt(Math.Pow(a, 2) - Math.Pow(B, 2))
        Me.E1 = C / a
        Me.E2 = C / B
    End Sub

End Class